unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzCmboBx;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    RzComboBox1: TRzComboBox;
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure RzComboBox1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  {ComboBox1.Left:=Edit1.Left;
  ComboBox1.Width:=Edit1.Width;
  ComboBox1.Height:=Edit1.Height;
  ComboBox1.Top:=Edit1.Top;
  ComboBox1.Visible:=True; }
  RzComboBox1.Left:=Edit1.Left;
  RzComboBox1.Width:=Edit1.Width;
  RzComboBox1.Height:=Edit1.Height;
  RzComboBox1.Top:=Edit1.Top;
  RzComboBox1.Visible:=True;
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  RzComboBox1.Visible:=False;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  Edit1.Text:=ComboBox1.Text;
  //  Edit1.Text:=ComboBox1.Text;
end;

procedure TForm1.RzComboBox1Enter(Sender: TObject);
begin
      Edit1.Text:=RzComboBox1.Text;
  ShowMessage('True');
    ShowMessage(RzComboBox1.Text);
end;

end.
